home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / Sixforty BASIC (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  54 lines
  1. 20 fori=49152to49482step10:fora=0to9:readb:c=c+b:pokei+a,b
  2. 21 iff=0thenf=1:g=g+b:goto25
  3. 22 iff=1thenf=0:h=h+b
  4. 25 next:e=e+c
  5. 30 readd:ifc<>dthenprint"error in data statement "i"[157].":end
  6. 40 c=0:nexti
  7. 50 ifg<>27700orh<>25923thenprint"one or more entries in wrong order":end
  8. 60 ife<>53623thenprint"error in data statements.  check for typing error.":end
  9. 70 print"sixforty ml portion poked into memory.  now saving sixfortymla to disk"
  10. 80 goto60100
  11. 49152 data 169, 0, 133, 251, 169, 96, 133, 252, 160, 0, 1363
  12. 49162 data 169, 248, 133, 253, 169, 95, 133, 254, 169, 0, 1623
  13. 49172 data 141, 252, 3, 169, 128, 141, 253, 3, 169, 248, 1507
  14. 49182 data 141, 254, 3, 169, 127, 141, 255, 3, 177, 251, 1521
  15. 49192 data 153, 248, 95, 200, 192, 8, 240, 3, 76, 38, 1253
  16. 49202 data 192, 177, 251, 145, 253, 200, 192, 0, 208, 247, 1865
  17. 49212 data 230, 252, 230, 254, 177, 251, 145, 253, 200, 192, 2184
  18. 49222 data 64, 208, 247, 165, 251, 24, 105, 56, 133, 251, 1504
  19. 49232 data 144, 2, 230, 252, 160, 0, 173, 252, 3, 133, 1349
  20. 49242 data 253, 173, 253, 3, 133, 254, 177, 253, 145, 251, 1895
  21. 49252 data 200, 192, 8, 208, 247, 165, 251, 24, 105, 8, 1408
  22. 49262 data 133, 251, 144, 2, 230, 252, 165, 252, 133, 254, 1816
  23. 49272 data 165, 251, 56, 233, 8, 133, 253, 176, 2, 198, 1475
  24. 49282 data 254, 160, 8, 165, 251, 141, 232, 7, 165, 252, 1635
  25. 49292 data 141, 233, 7, 165, 253, 141, 234, 7, 165, 254, 1600
  26. 49302 data 141, 235, 7, 173, 252, 3, 133, 251, 173, 253, 1621
  27. 49312 data 3, 133, 252, 173, 254, 3, 133, 253, 173, 255, 1632
  28. 49322 data 3, 133, 254, 177, 251, 145, 253, 200, 192, 0, 1608
  29. 49332 data 240, 3, 76, 173, 192, 230, 252, 230, 254, 165, 1815
  30. 49342 data 252, 201, 159, 208, 7, 165, 251, 201, 64, 144, 1652
  31. 49352 data 1, 96, 177, 251, 145, 253, 200, 192, 72, 208, 1595
  32. 49362 data 247, 165, 251, 24, 105, 56, 133, 251, 144, 2, 1378
  33. 49372 data 230, 252, 160, 0, 185, 248, 95, 145, 251, 200, 1766
  34. 49382 data 192, 8, 208, 246, 160, 0, 165, 251, 24, 105, 1359
  35. 49392 data 8, 133, 251, 144, 2, 230, 252, 165, 252, 133, 1570
  36. 49402 data 254, 165, 251, 56, 233, 8, 133, 253, 176, 2, 1531
  37. 49412 data 198, 254, 165, 252, 201, 159, 208, 8, 165, 251, 1861
  38. 49422 data 201, 64, 144, 2, 96, 96, 160, 0, 165, 251, 1179
  39. 49432 data 141, 252, 3, 165, 252, 141, 253, 3, 165, 253, 1628
  40. 49442 data 141, 254, 3, 165, 254, 141, 255, 3, 173, 232, 1621
  41. 49452 data 7, 133, 251, 173, 233, 7, 133, 252, 173, 234, 1596
  42. 49462 data 7, 133, 253, 173, 235, 7, 133, 254, 76, 38, 1309
  43. 49472 data 192, 0, 255, 255, 0, 0, 255, 255, 162, 0, 1374
  44. 49482 data 255, 255, 0, 0, 255, 255, 0, 0, 255, 255, 1530
  45. 60000 open15,8,15:save"tem",8:print#15,"s:sixforty basic"
  46. 60010 print#15,"r:sixforty basic=tem":verify"sixforty basic",8
  47. 60015 input#15,a$,b$,c$,d$
  48. 60020 printa$,b$,c$,d$:close15:end
  49. 60100 open15,8,15,"s:sixfortymla"
  50. 60105 open1,8,1,"0:sixfortymla,p,w":print#1,chr$(0)chr$(192);
  51. 60110 restore:fori=49152to49491:print#1,chr$(peek(i));:next:close1
  52. 60115 verify"sixfortymla",8,1
  53. 60120 input#15,a$,b$,c$,d$:printa$,b$:close15:end
  54.